we, ae a + 
a Sip (acto ort CaN RIEH. ~~» oo 
| 

j 

; 

\ 


SERIES 60 (LEVEL 6) 


GCOS 6 MOD 400 


PROGRAMMER’S GUIDE 
ADDENDUM A 


SUBJECT 
Changes and Additions to the Manual 


SPECIAL INSTRUCTIONS 


Insert attached pages into the manual (Revision 0, dated January 1978) 
poe according to the collating instructions on the back of this cover. Except in the 
{ completely revised Section 5, change bars indicate new and changed 
information and asterisks denote deletions. 
Note: 


Insert this cover behind the manual cover to indicate that the manual 
is updated with this addendum. 


SOFTWARE SUPPORTED 


This update supports Release 0110 of the Series 60 (Level 6) GCOS 6 MOD 400 
software system. See the Manual Directory of the System Concepts manual 
regarding later releases supported by this manual. 


ORDER NUMBER 

CB22A, Rev. 0 June 1978 
20967 
3678 


Printed in U.S.A. Ho neywell 


Collating Instructions 
To update this manual, remove old pages and insert new pages as follows: 
Remove Insert 
ili, blank iii, blank 
Vv, vl V,Vvi 
1-1, 1-2 1-1, 1-2 
1-5, blank 1-5, blank 
2-1, 2-2 2-1, 2-2 
5-1 through 5-14 5-1 through 5-14 
5-15, blank 5-15, blank 
7-3 through 7-8 7-3 through 7-8 
ee 


© 1978, Honeywell Information Systems Inc. File No.: 1823 


MANUAL DIRECTORY 


The following publications comprise the GCOS 6 manual set. The Manual 
Directory in the latest GCOS 6 MOD 400 Systems Concepts manual (Order No. 
CB20) lists the current revision number and addenda (if any) for each manual in 


the set. 


Order 
No. 


CBO1 
CB02 
CB03 
CB04 
CB05 
CBO06 
CBO7 
CB08 
CBO9 
CB10 
CB20 
CB21 
CB22 
CB23 
CB24 
CB25 
CB26 
CB27 
CB28 
CB30 
CB31 
CB32 
CB33 
CB34 
CB35 
CB36 
CB37 
CB38 
CB39 


CB40 
CB41 
CB42 
CB43 


Manual Title 


GCOS 6 Program Preparation 

GCOS 6 Commands 

GCOS 6 Communications Processing 

GCOS 6 Sort/Merge 

GCOS 6 Data File Organizations and Formats 

GCOS 6 System Messages 

GCOS 6 Assembly Language Reference 

GCOS 6 System Service Macro Calls 

GCOS 6 RPG Reference 

GCOS 6 Intermediate COBOL Reference 

GCOS 6 MOD 400 System Concepts 

GCOS 6 MOD 400 Program Execution and Checkout 

GCOS 6 MOD 400 Programmer’s Guide 

GCOS 6 MOD 400 System Building 

GCOS 6 MOD 400 Operator’s Guide 

GCOS 6 MOD 400 FORTRAN Reference 

GCOS 6 MOD 400 Entry-Level COBOL Reference 

GCOS 6 MOD 400 Programmer’s Pocket Guide 

GCOS 6 MOD 400 Master Index 

Remote Batch Facility User’s Guide 

Data Entry Facility User’s Guide 

Data Entry Facility Operator’s Quick Reference Guide 

Level 6/Level 6 File Transmission Facility User’s Guide 

Level 6/Level 62 File Transmission Facility User’s Guide 

Level 6/Level 64 (Native) File Transmission Facility User’s Guide 
Level 6/Level 66 File Transmission Facility User’s Guide 

Level 6/Series 200/2000 File Transmission Facility User’s Guide 
Level 6/BSC 2780/3780 File Transmission Facility User’s Guide 
Level 6/Level 64 (Emulator) File Transmission Facility User's 
Guide 

IBM 2780/3780 Workstation Facility User’s Guide 

HASP Workstation Facility User’s Guide 

Level 66 Host Resident Facility User's Guide 

Terminal Concentration Facility User’s Guide 


In addition, the following documents provide general hardware information: 


Order 
No. 


AS22 
AT04 
AT97 
FQ41 


Manual Title 


Honeywell Level 6 Minicomputer Handbook 

Level 6 System and Peripherals Operation Manual 
MLCP Programmer's Reference Manual 

Writable Control Store User’s Guide 


ili 


6/78 
CB22A 


¢ 


Section 1. Introduction 


Guide to Using the Manual Set ........... 1-1 
Applications Programmer’s Manual 
CQOIGC is Baba eet et eee ee cee 1 
System Programmer’s Manual Guide ... 1 
Operator’s Manual Guide .............. 1- 
RBF and DEF User Manual Guide ..... 1 


Section 2. Operating Environments 


Operator-Only Environment .............. 2-1 
All-Online Environment.................. 2-1 
Online/Batch Environment ............... 2-1 
Dedicated Application Environment ....... 2-2 
Mixed Environment..................0004- 2-2 


Section 3. User Terminal Startup 


Startup with the Login Facility ........... 3-1 
Task Group-Specific Terminal Startup..... 3-1 
Section 4. User Access to the System 
Access by Loggin In...................4.. 4-1 
Direct Login Terminal ................. 4-1 
Abbreviated Login Terminal ........... 4-1 
Full Login Terminal ................... 4-1 
Command Processor as 
LF Cs Id Wf -) ae or er ee 4-2 
Application as Lead Task ............ 4-2 
Access through the Operator or 
Another User ............. 000000 e eens 4-2 
Serial Execution of Application 
DOSKS sya cc anche dodealire os Bibeeaa wee 4-2 
Concurrent Execution of Application 
ME AGI es ean eeo lh Sabai anos Oeecnion 4-3 
Concurrent Execution from Several 
Task Groups ............... 0c eee eee 4-3 
Execution of an Application from the 
Batch Task Group ................ 4-3 
Execution from the Data Entry 
Facility (DEF) ...................... 4-4 
Access through the 
Operator Terminal ........... 4-4 


Section 5. Using the Editor 


Operator Terminal Typeout............... 5-6 
Explanation of Editor Actions ............ 5-7 


Section 6. Using the Assembler and 
Macro Preprocessor 


Sample Assembly Language Session 


(SMPMAC) ........... 2.0 cc eee ences 6-1 
Sample Assembly Language Multitask 
Program (BRDCST) ................. 6-6 


Contents 


Section 7. Using the COBOL Compiler 


Sample Card-to-Disk Program ............ 7-1 
Volume and File Creation.............. 7-2 
Source Loading ............ 0.0.00 eee aee 7-2 
Compiling with COBOL ............... 7-2 
DUNK INS 236 ch ae ede arte ad fo eee 7-2 
WXOCULING 4:25.005-7 be aees shaseadweerueaes 7-3 

Sample COBOL Terminal Session 

(ACBi11) 25.6008 A3s diac etoades 7-3 


Calling FORTRAN Routines from an 
Entry-Level COBOL Main Program .. 7-7 


Section 8. Using the FORTRAN 


Compiler 
Sample FORTRAN Terminal Session 

(MATING) seusste eet tiieadewece ents 8-1 
FORTRAN Chaining ...................5. 8-1 


Section 9. Using the Sort 


Figures 

1-1 Applications Programmer Guide 

to. Manuals ssc0.204sesiake ds 1-3 
1-2 System Programmer Guide to 

Manuals * i). osi34420s400060ey0 1-4 
1-3 Operator Guide to Manuals ....... 1-4 
1-4 Guide for Using Manuals in a 

Distributed Processing 

Environment ................ 1-5 
5-1 Sample Editor Directives in File 

SMPCMDFL ................ 5-5 
5-2 Terminal Responses from Sample 


Editor Directives of Figure 5-1 5-6 
5-3 Sample of Unexpanded Assembly 

Language Program with Macro 

Calls and Statements 

(SMPMAC.P) ................ 5-13 
5-4 Sample of Unexpanded Macro 

Routine (SAMPL1) Contained in 

EXEC_LIB Directory ........ 5-14 
5-5 Sample of Unexpanded Macro 

Routine (SAMPL2) Contained in 


EXEC_LIB Directory ........ 5-15 
6-1 Sample Terminal Session 

(SMPMAC) 33.52 5eswswe bonnes 6-1 
6-2 Macro Preprocessor Output 

(SMPMAC)...............--- 6-2 
6-3 Cross Reference Listing 

(SMPMAC ) cece ees eens 6-3 

6/78 


6-4 
6-5 


Assembler Output Listing 


(SMPMAC) ioe since eee des 


Linker Output Listing 


(SMPMAC)................. 


Sample Terminal Session 


(BRDCS DY) sa jonsensastiede ax 


Sample Terminal Session 


(ACEI) eicii ented te eet ees 
Sample Listings for AC8111...... 
COBOL Listing of COBFRT ...... 
FORTRAN Listing of FRTRAN .... 


Operator Terminal Session for 


COBURE 3 csdadwaierivaeatas 


Sample Terminal Session 


(MATINV) ................. 


Source and Linker Output 


Listing (MATINV) .......... 


Assembly Listing of Program 


CHAIN: 3 oaccienins ae ea 


vi 


5-1 


FORTRAN Programs Calling 


the CHAIN Function......... 


Linker Output for Chained 


PQOPTAIns 35 sia.e Deion deta dickes 


Linker Directives for Chained 


PLOPT AMIS. 44.65.450 ea2n cnet 


Execution Output from Chained 


Programs ..............0005- 


Sampie Sort Terminal Session 


Explanation of Editor Actions 


Tables 


Section I 


Introduction 


The GCOS 6 Mod 400 operating system for the Level 6 minicomputers provides a 
comprehensive set of system services which form a base for executing user-written applications, 
Honeywell-supplied applications, and program development tools. It provides an online, interrupt- 
driven operation for multiple users and a single, low-priority batch operation typically used for 
program development and associated activities. 


A number of different operating environments are possible, controlled in part by options 
exercised at system configuration, and in part by options chosen by the system operator at 
startup or at various times during the operating day. These environments are more fully 
described in Section 2, “Operating Environments.” 


Access to the system by users can be achieved in a variety of ways, again depending in part on 
system configuration options selected. These options are concerned mainly with the definition of 
local and/or remote terminal devices and how they are connected to the system. These are 
described in Section 3, “User Terminal Startup.” Other access options, normally under the 
control of the system operator, are concerned with the procedures by which a user identifies 
himself (logs in) to the system through a connected terminal. This subject is treated in Section 4, 
“User Access to the System.” 


The remaining sections comprise descriptions and examples of the use of various system 
components: the Editor (Section 5), the Assembler and Macro Preprocessor (Section 6), the 
COBOL Compiler (Section 7), the FORTRAN Compiler (Section 8), and the Sort component 
(Section 9). Each of these sections presents terminal and/or line printer listings representing the 
actions performed. In these listings, heading lines may vary in detail depending on the 
component that initiated the listing or, in some cases, may be omitted. However, in actual use, 
the user will see heading lines consisting of three major fields of information, as shown below. 


1. System Identification: GCOS6 MOD400- fe rrr-mm/dd/hhmm 
S — SAF 
L — LAF 
rrr — Release number of the operating system 
mm/dd/hhmm — Date/time when operating system was created (month, day, 


hour, and minute) 


2. Component Identification: xxxxx-rrrr-mm/dd/hhmm 


xxxxx — Component name 
rrrr — Revision number of component 
mm/dd/hhmm — Date/time that specified revision of component was created 


(month, day, hour, and minute) 
3. Time of program execution: yyyy/mm/dd hhmm:ss.t 


Date/time of program execution (year, month, day, hour, minute, second, and tenth of 
second) 


GUIDE TO USING THE MANUAL SET 


A guide to the use of the manual set is provided below. Information is tailored for specific 
classes of users — applications programmers, systems programmers, and operators. (As used in 
this guide, the applications programmer writes applications programs; the system programmer 
configures the system and defines the environment for each application; the operator operates 
the system from the operator terminal.) Included as a separate subsection is a guide for those 
who will use the Level 6 in a distributed processing environment. 
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APPLICATIONS PROGRAMMER’S MANUAL GUIDE 


Figure 1-1 illustrates the suggested sequence in using the manuals. If you wish to start using 
the system by writing an application program, begin by using the Programmer’s Guide manual. 
‘It illustrates: (1) various ways to gain access to the system, (2) a sample Editor session, and (3) 
for application languages, the procedure for performing program preparation and execution. 
Working with the small subset of commands used in the examples is a good approach to learning 
the system command set. This approach for getting started assumes that a system programmer 
has already configured and started up a suitable application environment. While using the 
system, you may wish to familiarize yourself with the system facilities described in the System 
Concepts manual. 


Through examples, the Programmer’s Guide illustrates how to use the system facilities. 
Other manuals provide reference material. The Program Preparation manual contains Editor 
directives (statements) to create and update an application language source unit. For each of the 
languages the appropriate language reference manuals contain the description of the language 
statements. Operating system dependencies, if any, that affect how you write the application 
are described in the Programmer’s Guide. If the application uses communications, refer to the 
Communications Processing manual. Read the Data File Organizations and Formats manual if 
you require a better understanding of a language-supported file organization that is to be used 

in an application, or if you must calculate the size of a data file. You can use Monitor macro calls, 

as described in the System Service Macro Calls manual, in assembly language programs. Before 
your program can be entered for execution, it must be linked as described in the Program 
Execution and Checkout manual. 


For program compilation or assembly and execution, the procedures described in the 
Programmer’s Guide might be sufficient. To obtain more control over the execution of your 
program or utilize the system facilities more completely or efficiently, use the commands 
described in the Commands manual. If you wish to use the operator terminal, read the 
Operator's Guide. In many cases, the description of commands must be supplemented by system 
concepts described in the System Concepts manual. Rather than read all the conceptual material 
at one time, you may find it more meaningful to refer to it in conjunction with the appropriate 
reference material. The Commands manual also describes the utilities. An assembly language 
program, the Patch, Debug, and Dump utilities are described in the Program Execution and 
Checkout manual; file transmission from Level 6 to a host system is described in the File 
Transmission manual appropriate to the host system. Error messages and return status codes 
are listed in the System Messages manual. 


SYSTEM PROGRAMMER’S MANUAL GUIDE 


Figure 1-2 illustrates the suggested sequence for using the manuals. The System Building 
manual provides you with the configuration directives (statements) and startup procedures to 
configure and start up a MOD 400, a Remote Batch Facility (RBF), or a Data Entry Facility 
(DEF) system. You must know the conceptual material in the System Concepts manual in order 
to successfully use the configuration directives. To tailor an applications environment suitable 
for the intended application, use the operator commands described in the Operator’s Guide 
manual. Error messages are listed in the System Messages manual. If you are working with an 
application that runs under the BES operating system, the System Concepts manual contains 
MOD 400 and BES compatibility considerations. 


OPERATOR’S MANUAL GUIDE 


Figure 1-3 illustrates the suggested sequence for using the manuals. Specific operator job 
functions must be determined by each installation; a large system might have a person assigned 
as an operator; a small system might have each programmer also act as an operator. The 
Operator’s Guide indicates the system procedures performed through the operator terminal and 
describes operator commands used in system operation. 


The Programmer’s Guide contains examples using commands (described in the Commands 
manual) that are similar to operator commands. The System Concepts manual provides an 
understanding of the operating system. Note that the Operator's Guide describes using the 
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operator terminal for operator functions to enter operator commands to the system task group, 
or for user functions to enter commands to a user task group. To run the utilities, use the 
commands (described in the Commands manual) entered through the operator terminal func- 
tioning as a user terminal. Error messages are listed in the System Messages manual. 


GUIDE FOR USING THE MANUALS IN A DISTRIBUTED PROCESSING ENVIRONMENT 


GCOS 6 Mod 400 supports the use of Level 6 in a distributed processing environment. Using 
Honeywell-supplied software packages, processing capabililty can be assigned to sites remote to 
the host computer system. With the functional links provided by Honeywell, a Level 6 can be 
configured as a host processor and specialized processing (i.e., forms data entry) assigned to 
remote terminals. Also, the user can develop links with non-Level 6 host processors and 
distribute the total processing load between the host and Level 6. 


The software packages available to the user include the Data Entry Facility, Remote Batch 
Facility, Terminal Concentration Facility, File Transmission Facility, Host Resident Facility 
(Level 66), and IBM workstation emulation software. Figure 1-4 indicates the documentation 
available for the operation and use of such software. Configuration information, if applicable, is 
contained in the System Building manual. 


REMOTE DATA Boca - IBM 

E FILE TERMINAL RESIDENT WORKSTATION 
FACILITY FACILITY TRANSMISSION CONCENTRATION FACILITY EMULATION 
USER USER USER USER USER USER 


LEVEL 66 


REMOTE DATA 


ENTRY 


HASP 
WORKSTATION 


TERMINAL 


CONCENTRATION 
FACILITY 


RESIDENT 


BATCH 
FACILITY EArt EY. 
USER’S 
GUIDE 


LIT 
USER'S GUIDE 


IBM 

2780/3780 
WORKSTATION 
EMULATION 
FACILITY 
USER'S GUIDE 


FACILITY 
OPERATOR'S 


QUICK 
REFERENCE 
GUIDE 


L6/L64 
(NATIVE) 
USER'S 
GUIDE 


6/S200/2000 
USER’S 
GUIDE 


L6/ 
BSC 2780/BSC3780 
USER’S 


GUIDE 


Figure 1-4. Guide for Using the Manuals in a Distributed Processing Environment 
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Section 2 


Operating Environments 


The Mod 400 operating system allows a wide variety of operating environments, ranging from 
a single operator-controlled configuration to one in which the operator, other users, or a 
combination if both can control the configuration at any time during the operating day. This 
range of operating environments is described in this section. 


OPERATOR-ONLY ENVIRONMENT 


This environment is one in which a designated operator and a limited number of users 
(typically programmers developing application programs) use the system on a first-come first- 
served basis for developing and testing programs. All work is done through the operator 
terminal, through either the system task group or a single online task group created by the 
system startup procedure. Certain functions can be performed through either of the two task 
groups; others can be done only through the system task group or the online task group — refer 
to the Operator’s Guide and the Commands manuals for details on which functions can be 
performed from each task group. 


ALL-ONLINE ENVIRONMENT 


An all-online environment is one in which one or more users can concurrently use the 
facilities of the operating system to perform interactive tasks of any kind permitted by the 
command language described in the Commands manual, plus any user applications that can be 
invoked through the command processor. This latter category consists of user programs in the 
form of bound units that are called from a task group in which the command processor is 
declared as the lead task when the task group is created. A task group can also be created by the 
operator or another online user, declaring the application bound unit as the lead task; in this 
case the creation of the task group and its activation results directly in the execution of the 
declared bound unit, without the need to enter its name as a command. 


Anexample of this kind of environment is one in which several task groups have the command 
processor as lead task and one or more other task groups have specific application programs such 
as the Data Entry Facility and user-created programs as lead tasks. The former task groups can 
be used for editing source program files, entering requests for jobs to be run in the batch task 
group (see below), requesting printouts of files, etc. Concurrent with these activities can be the 
execution of the user application programs constituting the latter set of task groups. From the 
user’s point of view, each task group has the appearance of having control of the system. 


ONLINE/BATCH ENVIRONMENT 


This environment differs from the all-online environment only in that, in addition to the 
creation of the online task groups, a batch task group has also been created by the designated 
operator from the operator terminal. Once this task group has been created, any online task 
group having the command processor as its lead task can enter requests for jobs to be run 
through the use of the EBR (ENTER BATCH REQUEST) command. Typical of such batch jobs 
would be requests for compilations, links, application program checkout runs, and the like. 


Creation and utilization of the batch task group requires the existence of at least the 
designated operator terminal, through which the batch task group is created and through which 
requests to it can be entered. Jobs run in the batch task group are normally controlled by a 
previously created file containing commands directing the execution of the jobs, and not by 
interactive dialog from a terminal. Section 4 contains additional information on the use of the 
batch task group. 
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DEDICATED APPLICATION ENVIRONMENT 


This is an environment in which system startup or operator action subsequent to startup 
results in the creation of one or more task groups in which a user application, and not the 
command processor, is the lead task. In such an environment no interactive processing using 
system commands takes place; rather, whatever processing occurs is dependent on the nature of 
the application — e.g., data entry, an inventory application, etc. 


MIXED ENVIRONMENT 


The Mod 400 system does not restrict the user to any one of the foregoing environments at any 
given time. Given a large enough system, any of these can be combined with any others to 
provide concurrent interactive, batch, and dedicated operations on a selected terminal basis. 
That is, a selected set of terminals can be associated with interactive tasks, while others can be 
related to the dedicated application tasks. 
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Section 5 
Using the Editor 


Before studying this section, you should have a knowledge of the Editor operation. The Editor 
is described in the Program Preparation manual. 


This section shows how the Editor is used to modify the contents of files, merge files and place 
macro routines in the macro library directory. The four files to be altered are SMPMO1 (Example 1), 
SMPM02 (Example 2), SMPM03 (Example 3), and SMPM04 (Example 4). The directives that 
control the Editor are contained in a file “SYSMAC>SMPCMDIFL, Figure 5-1. This file 
comprises 56 lines, some of which include multiple directives. 


This session of the Editor accomplishes the following functions: 
e SMPMO1 and SMPMO02 are altered and written to files SMMPL1 and SMMPL2. 


e SMMPL1 and SMMPL2 are combined to form file SMPMAC.P containing macro 
statements and calls to be processed by the macro preprocessor. 


e SMPMO3 and SMPM04 are altered and written as files SMMPL3 and SMMPL4 


respectively. 


e SMMPL3 and SMMPL4 are altered and written as macro library routine files SAMPL1 
and SAMPL2, respectively, into the MACRO>EXEC_LIB directory. 


Example 1: 


File SMPMO01 before Editing 


1 TITLE SMPMAC,'3/1/77' EDITOR/MACRU EXAMPLE 
@ * INSERT LN 2@ LIB STATEMNT BEFORE THIS Lhe. TREN NOEL THIS L& 

3 SMPL™ MAC P1=0,Pe=e,Ps$='SAMPLE!,PU='PR(I-GRAM!',PSSZERO,P6=(3 
G4 PT7=),PK=TAU,P9ZSCOMM:,PAZA,PHEK,PCETC,PUSSAMPLE,PESZPROGEO 

S »«* SET LUCAL VALUES wITHIN MACRO kKGUTINE # 

6 LE USE CRANGE FUNCTIUN TO ADD SETA VALUE FOR THIS LN 

7 L&4 USE CHANGE FUNCTION TU ADD SETA VALUE FUR THIS LN 

8 LS USE CHANGE FUNCTION TO ADD SETA VALUF FOR THIS LN 

9 L6 USE CHANGE FUNCTION TO ADD SETA VALUE FOR THIS LN 

10 »* ADD L7 SETA VALUE Ww/CHANGE FuwCTION «2 THeN DELT THIS LAN 

11 L8 SETA XLOC 

le 9 SETA XVAL 

135 LA SETA (2°01 '] 

14 La SETA COMM 

tS: LZ SETA Pe. 3 


16 USED EDIT kKEAD FUNCT TO ADD "SMPMO2" PORTIO® TO FILE® 


USING THE EDITOR 
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Example 2: 
File SMPMO02 before Editing 


CeENOW CW 


10 


* 
* THESE UNPROTECTED COMMENT LIVES “ILL r& DRURPED 
®* WHEW MACK) PREPRKOCESSED. 
* 
tu4 ALG 261 (G1 ItITIAL VALue=s) 
| #15 PIXCRLE, 2?PE) 2G647P1 
265 4Lo PPS?VL (035) 2P4aLZ4La 
HL] ?G4 
RLT PP6?PPE?PGHPZAL (PPC) PRPs 
#LA _ 2SS(?P4,7.1) 
#L9 2VP(141) 
266 #3 2G7 
7GA BL 2P947GS 
E Wh 
G3 St TN i 
G4 SETA '7ERO! (APUSTRUPHE'S DRUPPED whe SUBSTI.) 
G5 SETA ‘NAME! 
G6 SETA "SCUMM! 
G7 SET 100 
GA SETA com! 
Gb SETA ry! 
* 


week THE FULLOWIANG PORTION GF CORE IS aAbhet 
w® 

SHiPLM, (CALL JivebL Tist 
* 
wkeee THE FULLOYWITNG PORTION OF CUDE IS ADtED 
* 
CAG I SAMPLI lervevrete lee 
ee START, SC 
* 
eeee THE FULLUWING PORTIUN OF COVE IS Aven 
* 


CALLe SAMPLE SF eov eevee 
Prep rrererrrerrreovreorereoreeLINK 
ED SMPMAC, START 


USING THE EDITOR 5-2 


PROS 
bACKO 


FRUM 


FRA. 


"SHmPL oe" week 


ROUTINE) 


"SAMPL 1 " 


"“SAMPL" 


wae 


weak 


A hie, 


Example 3: 
File SMPM03 before Editing 


SAMPL} MAC P1=0,P2=2,P3='"SAMPLE',P4S!'PROUGRAM!',PSSZEKO,P62(,P7=)3 
PB=TWO,P9ESCUOMM, PA=A,PB=B,PDSSAMPLE,PE=PRUGRAM 


SET LOCAL VALUES *ITHIN MACRO ROUTINE *& 


OOnwo WV eLWND = 
* 


* 
* 
L4 SETB ORG 
LS SETbB OC 
10 Lo SETS LOR 
11 L7 SETb STR 
i2 L& SETH CALL 
13 =6L9 SETB L& 
14 LA SETH KAT 
15 Bb SETS SLD 
16 LC SET tel 
17 LO SETB (Z'3e'") 
18 Le SE TB "PROGS.START2@L,) wAMe! 
19 
eo 
21 * SET GLUHBHAL VALUES #ITHIN MACRO ROUTINE « 
ec * 
23 
24 GH SETA "ORG INTO COmwOM! 
25 GG SETA "ORG INTO INTERWAL LOC! 
26 6 6GC SETA "EXTER VAL REFERENCE! 
e7? GO SETA "COMMON REFERENCE ! 
28 GE SETA "EXTERNAL LOCATION wWEFERENCE! 
29 «GF SETA "FORWARDS TEMP LAHEL REFERENCE! 
30 »* 
31 ® UNPROTECTE) LINES OFITTED WHEW PRE@ePRUCESSED 
32 Cit 
33 . ?L4 ?R9 ?GH 
34 ?7L5 2VR(07P3,2?PD) 268788 (2P4, PPE) 
35 7L4 27G6427P7?P8 27Gb 
36 0 6?PC “?L6 Sk1,?LC?P8 ?76C 
37 TG DRI ,<?GA 260 
38 [x] 
39 =67?PD ?7L6 SR1,<?PA TGE 
40 (*) 
4} 7L8 PRUG2.?7SS(?7LE,7, 6) PERNAME 
Me 27L9 27G4?P7?P12?GG?LC?7VL(13) 
43 7LA >?P7SF | ?GF 
44 ?7LB SSI?PGB?PLCZ'?7CH(1,92)?CH (2,22) PCHE3, 82) 7?CH(4,=2) ! 
45 ENODCL1 ENOM 
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Example 4: 
File SMPM04 before Editing 


1 SAMPLE RAC P120,P222,P3='SAMPLE!, P4s!PHOGHAM!, PSEZERO,P6=(,PT=)? aR 
2 P&=TWU,P9SSCOMM,PAZA,PREH f 
3% SET LOCAL VALDES #ITRIN MACRU ROUTILE * ~ 
4 4 SETA >=(Z'1 300") ~ 
5 ca SETA TIGL) 

6 LO SETA SKI 

7 Le SETA TPROGELSTAKT L,) wat! 

& LG SETA SOk 

9 LC SE Tiv 32768 . 

10 VELTS OC TNMELETE LINE ENDING In S'S 

11 LP SE Tiv 3°T67 

le Low Se Tr '$) 

13 LI SETA REZ 

id LY SETA HLT 

15 LZ SETA Vy! 

16 * SET GLUBAL VALUES wITRHIi: ACRKG kRUIITIist * 

17 G7 SETS “3e76b 

18 Ge SETA TRACKYV AROS TEMP LAmFlL kKEFEKERCE! 

19 G5 SETA CTkL 

roa 

el * UNPROTECTEG LIWES OMITTED WRENS PRE ePRIUCESSE! 

ee 

23 ?Pi ?LA PPS?PLZ?PL4,=?7?LV 

e4 ?P] ?L4 PPSPLZ?PL4,= Pci 

25 fLG ?LD,?2?VG03) 

26 7LI ?L0G,2°8C Pie 

e7 PLY 

28 2G5 2PZ PSS Cele. l,d) 

eo | *Drk UC "DELETE LINE BEGIiWwInG Bw *! 

30 TF ive 27G7,?LP,GTEAD 

$1 FAIL 

$2 GTEND GOTO ENDIT 

33 ODLET UC 'OELETE LINE BEFURE QUIT! 


34 ENDCLe Ents 
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pee ESS, 


R ASYSMACOSMPMO1 


X 

6,9CLE SETA * PROG2Z.START2EL, INAME ' 
L4 SETA EQU 

LS SETA RE SV 

L& SETA TEXT 

LF SETA X DEF 

i 

ZI LIBM "EXEC_LIB*,SAMPL1,SAMPL2!F!7? 
=,-1:$K(SMMPL1) 

X 

R SMPMOZ 


{,43V'IP/#L/.-12713G'P/#L/.-97 135 #L' TL F= 
1,$M(SMMPL2) X 

R SMPMOG 

B.17S/SETB/SETA/8&,17P 

1, $M (CSMMPLS) X 

R ASYSMACSSMPMO4 


X29A IFE 7Q7,7LC,IFE 
FATL 

ENDIT TFNL TPe,7LC,* 

Gao ae MULL IF 

(BSeck Es IP LSS POL eOs TED 

1,%K(SMMPL4) 


B(SMMPL {4 ) 

W ASYSMACOSMMPL1I.IN.A 
{,$DX 

BCS Mr i) 

W ASYSMACOSMMPLA.LIN.LA 
1,$D 

BCSMMPL 2) 

W ASYSMACDOSMMPLG 
BCSMMPL 4 ) 

W ASYSMACOSMMPL4 

R SMMPLi.IN.A 
/INSERT/'PD/ADD L7/'PD 
{5R SMMPLZ.INLA 

Roe Le D 

F FO >SPDSLPTOO 

i,$'PW SMPMAC.P 

{,$D 

Kk SMMPL3 
X¥/L4/3/LE/S/SETB/SSETA/ 
1,$'PW ASYSRESSFLDDIMACROFEXEC_LIBS>SAMFI. 4 
R SMMPL4 

/DLET/D 

Q 

4,$'FPW ASYSRES>LDDO>MACROFEXEC_LIBSSAMPL2 
X 

bE PG 

@ 


Figure 5-1. Sample Editor Directives in File SMPCMDIFL 
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OPERATOR TERMINAL TYPEOUT 


The typeout produced at the operator’s terminal during the editing process is shown in Figure 5-2. 
In this figure, the editor directive line that produced each line of the typeout is indicated by the 
circled numbers at the left of the typeout lines. Note that not every directive generates a 
typeout; e.g., the R (read) and W (write) directives. The lines of typeout that are produced in the 
editing of each of the four input files are indicated by brackets in the left margin. 


In the typeout, the response to the Editor directives begins after the line ($H)EDIT-0100- 
11/21/0827. 


BC GROUPSD 

(S$D)ON-LINE DEBUG REVe 1976/11/20 1115 O04 SYSREV. 4014 
C :$Hs: : 
RDN 

(SH) RDYs 

CWD “SYSMAC 

(SH)RDY: 

LwD 

(SH) *SYSMAC 

(SH)RDY: 

ED -LINE_LLN 75 -IN “SYSMAC>SMPCMDFL 

(SH) EDIT-0100-11/21/0827 


(SH) 16 => (0) “SYSMAC>SMPMO1 
(SH)EDIT MODE 
SMPMO1 (SH) 2 
tam 18 -> MOD (0) “SYSMAC>SMPMO1 
(SH) 18 (SMMPLI) 
2 aw 0 -> (0) “SYSMAC>SMPMO1 
(SH) 18 (SMMPL1) 
(SH) 1 * 
(SH) 2 * THESE UNPROTECTED COMMENT LINES WILL BE DROPPED 
(SH) 3 WHEN MACRO PREPROCESSED- 
(SH) 4 * 
(SH) 5 264 #L4 G1 (G1 INITIAL VALUE=$) 
(SH) 6 #LS 2 LXC#LEs ?PE) 2GB?P1 
(SH) 7 G5 #L6 ?P37VL(35)?PA#LZELa 
(SH) 8 #L7 2G4 
SMEMOe ($H) 9 #L7 2P6?P 8?7GB?AL (?PC)?P7 
(SH) 10 #L8 25S (?P4s7s1) 
(SH) 11 #L9 2VP (11) 
(SH) 12 766 #LB 2G7 
(SH) 13 ?GA #La 2P9+7G3 
oh EN DM 
4 sH) ta : 
(SH) 0 -> (0) "SYSMAC>SMPM02 
4am 18 (SMMPL1 ) 
(SH) 36 (SMMPL2) 
(SHLA SETA ORG 
(SH)LS SETA DC 
17 (SH)L6 SETA LDR 
(SH)L7 SETA STR 
(SH)LB SETA CALL 
SMPMO3 (SH) LO SETA LB 
(SH) LA SETA BBT 
17—| (SH) LB SETA SLD 
(SH) LC SETA om? 
(SH) LD SETA (z*32°) 
(SH) 9 -> (0) “SYSMAC>SMPMO3 
(SH) 18 (SMMPL 1) 
18 su 36 (SMMPL2) 
| (SH) AS (SMMPL3) 


Figure 5-2. Terminal Responses from Sample Editor Directives of Figure 5-1 
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f 


“th 


(SH) 34 => 
| (SH) 18 
“4 38 36 
(SH) 45 
(SH) 0 
(SH) 0 -> 
29 ($H) 36 
(SH) 45 
(SH) 36 
(SH) 0 
(SH) 0 
38 (SH) 0 
(SH) 0 
(SH) 0 -> 


-> MOD 


(SH) 0 
($H) 0 

47— (SH) 0 
(SH) 0 
(SH) 45 -> 


(SH)MODIFIED BUFFERS EXIST» 


(SH) 0 
($H) 0 

c4—| (SH) 0 
(SH) 0 
(SH) 35 -> 


CSHIRDY 3 


Figure 5-2 (cont). 


(0) “SYSMAC>SMPM04 


(SMMPLI1 ) 

(SMMPL2 ) 

(SMMPL3) 
265 


?PZ ?SSC?PLEs155) 


DC °’DELETE LINE ENDING IN $°$ 
DC *DELETE LINE BEGINNING IN ~*° 
C0) “SYSMAC>SMPM04 


CSMMPLI1 ) 
C(SMMPL2 ) 
CSMMPL3) 
(SMMPL4) 


(0) “SYSMAC>SMPM04 


CSMMPLI ) 
CSMMPL2 ) 
(SMMPL3) 
CSMMPL4) 


*-SYSMAC>SMMPLI 


(0) “SYSMAC>SMPM04 


(SMMPLI ) 
(SMMPL2) 
(SMMPL3) 
(SMMPL4) 


~SYSMAC>SMMPLI 


“SYSMAC>SMMPL2 
*SYSMAC>SMMPL3 
“SYSMAC>SMMPL4 


(0) “SYSMAC>SMPM04 


CSMMPLI ) 
(SMMPL2 ) 
CSMMPL3) 
(SMMPL4) 


*“SYSMAC>SMMPL1 
“SYSMAC>SMMPL2 
*SYSMAC>SMMPL3 
*SYSMAC > SMMPL2 


*USED EDIT READ FUNCT TO ADD “SMPM02” PORTION TO 


(0) “SYSMAC>SMPM04 


(SMMPLI ) 
(SMMPL2) 
<(SMMPL3) 
(SMMPL4) 


*“SYSMAC>SMMPLI 
*SYSMAC>SMMPL2 
*SYSMAC>SMMPL3 
*“SYSMAC>SMMPL3 
QUIT DEFERRED 


(0) “SYSMAC>SMPM04 


CSMMPL 1) 
€SMMPL2 ) 
(SMMPL3) 
CSMMPL4) 


*“SYSMAC>SMMPLI 
*SYSMAC>SMMPL2 
“SYSMAC>SMMPL3 
*200B02>LDD>MACRO>EXEC_LIB>SAMPL2 


EXPLANATION OF EDITOR ACTIONS 


Table 5-1 describes the actions performed by the Editor as it processes the directive file. The 
entries under the heading Line No. designate lines in the directive file Figure 5-1. The entries 
under the heading Terminal Typeout are abbreviated versions of those in Figure 5-2. For lines 
with multiple directives, they show which directive caused the typeout. 


FILE* 


* INSERT LN 2 LIBM STATEMNT BEFORE THIS LNeeTHEN DEL THIS LN 
* ADD L7 SETA VALUE W/CHANGE FUNCTION ee THEN DELT THIS LN 


Terminal Responses from Sample Editor Directives of Figure 5-1 


The assembly language program with unexpanded macro calls created from Example 1 and 
Example 2 is shown in Figure 5-3. The directive that caused it to be printed is contained in line 44. 


Figures 5-4 and 5-5 are the unexpanded macro routines created from Example 3 and Example 4 
respectively. The directives that caused them to be printed are included in lines 48 and 53 


respectively. 
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Line 


NI DD oO ff 


10 


11 


12 


13 


14 


USING THE EDITOR 


TABLE 5-1. 


Editor Directive Description 


R “SYSMAC>SMPMO0O1 

Read the 16-line file (example 1) into the current buffer (0). 
xX . 

Display the status of the current buffer (denoted by —). Sixteen 
lines were read into current buffer (0). 

6,9Ctext 

Change lines 6 through 9 of the buffer with this text for line 6. 


Text for line 7. 
Text for line 8. 
Text for line 9. 


Text, this additional line is inserted after the previous four lines 
were changed. Note that the Editor recognizes tab characters. 
1k 

Terminate input mode and enter edit mode. 

2Itext!F!? 

Insert text before line 2. 

Terminate input mode. 

Display current mode. 


=.-1;5$K(SMMPL1) 

Display current line pointer. 

Move the current line pointer back one line to a new current line 
pointer position. Copy the lines from that position to the last 
line in the current buffer into auxiliary buffer, SMMPL1. 

x 

Display status of current and auxiliary buffers. There are 18 
lines in current buffer (0), which has been modified (MOD) since 
it was read in, and 18 lines in auxiliary buffer SMMPL1. 
1,6DX 

Delete the first through last line of the current buffer (0). 
Display status of buffers. 


R SMPMO02 
Read 36-line file (example 2) into the current buffer (0). 
1,13 V!P/#L/.-12;138G!P/#L/.-9;.S #L°?7L!P= 


For lines 1 through 13, display line numbers and all lines that 
do not contain the expression #L. 


Move the current line pointer back 12 lines from line 14 to line 2. 
For lines 2 through 13, display all lines and their line numbers 
containing the expression #L. 
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Terminal 
Typeout 


16->(0) ... 


EDIT MODE 


18-> MOD (0) ... 


18 (SMMPL1) 


0->(Q) ... 
18 (SMMPL1) 


Ae 
59G4#L4 ... 


13?GA #L4 ... 


Line 
No. 


15 


16 


17 


18 


19 


20 


21 
22 
23 


24 


TABLE 5-1 (CONT). EXPLANATION OF EDITOR ACTIONS 


Terminal 
Editor Directive Description Typeout 
Move the current line pointer back nine lines to line 5 and 
substitute ?L for #L, in that line and the next 8 lines. Note that 
the apostrophe is used as a delimiter. 
Print current line. ENDM 
Print current line pointer value. 14 
1,8M(SMMPL2)X 
Move line 1 through the last line of the current buffer to 
auxiliary buffer SMMPL2. The contents of the current buffer (0) 
are erased. Display the status of the buffers. 0->(0) ... 
18 (SMMPL1) 
36(SMMPL2) 
R SMPMO03 
Read 45-line file (example 3) into current buffer (0). 
8,17S/SETB/SETA/8,17P 
For lines 8 through 17, substitute SETA for SETB. 
Print lines 8 through 17 without line numbers. L4 SETA ... 
LD SETA ... 


1,8M(SMMPL3)X 
Move line 1 through last line of the current buffer into auxiliary 
buffer SMMPL3 and erase buffer (0). 


Display buffer status. 0->(0) ... 
18 (SMMPL1) 
36 (SMMPL2) 
45 (SMMPL3) 


R “SYSMAC>SMPM04 
Read the 34-line file (example 4) into the current buffer (0). 
X29A 
Display buffer status, 34 lines are currently in buffer (0). 34->(0) ... 
18 (SMMPL1) 


36 (SMMPL2) 
45 (SMMPL3) 


After line 29, append four lines of text. Text for line 30. 
Text for line 31. 

Text for line 32. 

text!F 


Last line of text (line 33). 
Terminate input mode and enter edit mode. 


/SS..LE/!P/$$/!PD/* * /!PD 


Search the current buffer for the first occurrence of the 
expression SS..LE, where .. are any two characters. 
List the line and its line number. | 287?G5 ?PZ ?SS(7LE... 


6/78 


USING THE EDITOR 5-9 CB22A 


TABLE 5-1 (CONT). EXPLANATION OF EDITOR ACTIONS 


Line Terminal 
No. Editor Directive Description Typeout 
Locate a line that ends with $ as the last character. List the line 
and its number; then delete the line. 1ODELT$ Ne 
DC...“D...$'$ 
Locate a line beginning with “%. List, then delete the line and its 
line number. 28 “DEL DC 
‘DELETE ... 
25 1,8K(SMMPL4) 
Copy the current buffer contents from first through last line into 
auxiliary buffer SMMPL4. 
26 X1,$D 
Display the status of the buffers. 36->MOD(0) ... 
18 (SMMPL1) 
36 (SMMPL2) 
45 (SMMPL3) 
36 (SMMPL4) 
Delete first through last line of current buffer. 
27 B(SMMPL1) 
The auxiliary buffer, SMMPL1, is made the current buffer prior 
to writing. 
28 W *<SYSMAC>SMMPLI 
Write the current buffer contents as a file whose pathname is 
“SYSMAC>SMMPL1. 
29 1,8DX 
Delete the first through last line of the current buffer. 
Display the buffer status. The pointer points to current buffer, 
SMMPL1. O(O) ... 
0->(SMMPL1) ... 
36 (SMMPL2) 
45 (SMMPL3) 
36(SMMPL4) 
30 B(SMMPL2) 
The auxiliary buffer, SMMPL2, is made the current buffer prior 
to writing. 
31 W *SYSMAC>SMMPL2 
Write the current buffer contents as a file whose pathname is 
“SYSMAC>SMMPL2. 
32 1,$6D 
Delete the first through last line of the current buffer. 
33 B(SMMPL38) 
The auxiliary buffer, SMMPL3, is made the current buffer prior 
to writing. 
6/78 
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Line 
No. 
34 


35 


36 


37 


38 


39 


40 


4] 


42 


43 


44 


TABLE 5-1 (CONT). EXPLANATION OF EDITOR ACTIONS 


Editor Directive Description 


W *“SYSMAC>SMMPL3 

Write the current buffer contents as a file whose pathname is 
“SYSMAC>SMMPL3. 

1,$D 

Delete the first through last line of the current buffer. 


B(SMMPL4) 

The auxiliary buffer, SMMPL4, is made the current buffer prior 
to writing. 

W *“SYSMAC>SMMPL4. 


Write the current buffer contents as a file whose pathname is 
“SYSMAC>SMMPL4. 


1,6DX 
Delete the first through last line of the current buffer. 


Display the status of the buffers. SMMPL4 is the current buffer. 
All the buffers have been cleared. 


R SMMPLI1 
Read the file SMMPL1 into the current buffer, SMMPL4. 


/AINSERT/!PD/ADD L7/!PD 


Locate the first line containing the expression, INSERT, list it 
and its line number, and then delete it. 


Starting at the current line, locate the first line containing the 
expression, ADD L7, list it and its line number, and then delete 
it. 


15R SMMPL2 

Read the file, SMMPL2, into the current buffer after line 15 of 
the buffer. Two files are being merged. 

X52!PD 


Display the status of the buffers. Current buffer, SMMPL4, now 
has 52 lines. 


List line 52 then delete it. 


KE FO >SPD>LPTO0O 

The Execute directive allows you to execute the ECL command 
FO to change the output file from the operator’s terminal to the 
line printer. 


1,$!:PW SMPMAC.P 
List the first through last line of current buffer on the line 


printer (Figure 5-3). Write the current buffer as a file whose 
pathname is SMPMAC.P. 
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Terminal 
Typeout 


0 (0) ... 

0 (SMMPL1) .. 

0 (SMMPL2) .. 

0 (SMMPL3) .. 
0->(SMMPLA) ... 


3* INSERT LN ... 


11* ADD L7SETA... 


0 (Q) ... 


52->MOD(SMMPL4)... 
52 *USED EDIT ... 
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Line 
No. 
45 


46 


AT 


48 


49 


50 


51 


D2 


D3 


D4 


5D 


06 


TABLE 5-1 (CONT). EXPLANATION OF EDITOR ACTIONS 


- Terminal 

Editor Directive Description Typeout 

1,$D 

Delete the first through last line of the current buffer. 

R SMMPL3 

Read the file, SMMPL3, into the current buffer, SMMPL4. 

X/L4/;/LE/S/SETB/SET A/ 

Display the status of the buffers. 0 (0) ... 
0 (SMMPLI1) ... 
0 (SMMPL2) ... 
0 (SMMPL3) ... 


45->(SMMPL4) ... 
Locate the first line containing the expression, L4. Starting 
with the line containing L4 through the line containing the 
expression LE, substitute SETA for all occurrences of SETB. 
1,$!PW “*Z00B02>LDD>MACRO>EXEC_LIB>SAMPLI1 
List the first through last line of the current buffer on the line 
printer (Figure 5-4). 


Write the current buffer as a library routine file whose path- 
name is “ Z00B02>LDD>MACRO>EXEC_LIB>SAMPL1I. 
1,$D 

Delete the first through last line of the current buffer. 

R SMMPL4 

Read the file, SMMPL4, into the current buffer. 


/DLET/D 
Locate and delete the line containing the expression DLET. 


Q 

Quit. The quit is deferred since a buffer has been modified and MODIFIED BUFFERS 
has not been written to a file. You haveone more chancetowrite EXIST... 

the contents of the current buffer as a file. 


1,$!PW “”“Z00B02>LDD>MACRO>EXEC_LIB>SAMPL2 
List the first through last line of the current buffer on the line 
printer (Figure 5-5). 

Write the current buffer contents as a library routine file whose 
pathname is “ ZO0B02>LDD>MACRO>EXEC_LIB>SAMPL2. 


X 


- Display buffer status. Status is always displayed on the 0 (0)... 


operator’s terminal even though the output file is the printer. 0(SMMPL1)... 
0 (SMMPL2) ... 
0 (SMMPL3) ... 
35->(SMMPL4) 


E FO 


The Execute directive allows you to execute the ECL command 
FO to change the output file from the line printer back to the 
operator's terminal. 


Q 
Quit. Exit from the Editor. 
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| 

rod 

3 SMPLM 
4 

5 

6 LE 
7 4 
6 5 
9 Lo 
10 7 
11 L& 
te 9 
138 LA 
14 Lo 
iS L2 
16 * 


17 * THESE UNPRUTECTED COMMENT LINES 


18 * WHEN MAC 


Ge okk&ek THE FULLOWI]ING PURTION 


G7 #weeee THE FOLLOWING PORTIUN OF COVE IS ADDED 


19 k 

20 ?G4 
el 

2c ?65 
2§ 

ea 

25 

e6 

e7 266 
28 ?6A 
29 

$0 G3 

$1 G4 

$2 G5 

33 Go 

354 67 

35 =«6GA 

$6 GK 

37 

$B xkekee THE FOLLOWING 
59 

4Q 

Gi * 

43 * 

4G CALL1I 
45 pe START, OC 
46 * 

4a * 

49 CALLe 


TITLE 


Lim 
MAC 


SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 


SMPMAC,'3/1/77' 
TEXECTLI6B', SAMPL1,SAMPL2 


EDITOR/MACRG EXAMPLE 


P1=0,Pe=e,P3='SAMPLE',P4='PRUGRAM!,PSSZERO,PO=(5 


' PRUG2.STARTCL,) NAME! 


EQU 
RESV 
TEXT 
XDEF 
XLOC 
XVAL 
7 ae ty Bes 
COMM 


KU PREPRUCESSED. 


27L4 
£15 
7L6 
PL? 
TL7 
?L8 
2749 
?LB 
?L4 
END iv 
SE Tiv 
SETA 
SETA 
SETA 
SETI 
SETA 
SETA 


SMPLM, 


SAMPL1 


SAMPLe 


261 


264 


P7=),P8=T*O0,P9=SC0MM,PAZ=A,PR=B,PCHTC,PD=ASAMPLE,PESPROGC 
* SET LOCAL VALUES WITHIN MACRO ROUTINE * 


WILL BE DROPFEL 


(G1 INITIAL VALUESS) 
ZIXCPLE, 2PE) ?7607P 1 
PP3PVLC3S5) 2P42LZ?La 


PPO?PPB?PGEPAL (PPC) 2P7 
27SSC?P4,7,1) 


2VF (11) 
267 
2P9¢7G3 


j 
"ZERO! 
"NAME ! 
'"$COMM! 
100 
‘COMI! 


bat 


(APUSTROPHE'S 


PURTIUN OF CODE JTS AUfEt 


(CALL IWeLINe 


GF CUDE IS ADDED 


Veoerervre te 130-3 


SF eppeereeee 


50 Peron er Vere r eer PT eo PP PP POLILIVK 


SMPMAC, START 


END 


DROPPED WHEN 


FROM "SMPLM" 


SUBSTI.) 


Keke 


MACKO ROUTINE) 


FROM "SAMPLI" 


FROM "SAMPL2" 


kkk 


Ware 


Figure 5-3. Sample of Unexpanded Assembly Language Program with Macro Calls 
and Statements (SMPMAC.P) 
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OOnN CO UI CW = 
% 


SAMPL1 MAC 
P8zTWO,PS2$COMM,PA=A,PB=B,PD=SAMPLE,PESPROGRAM 


SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 


Pis0,P2=e,P3='SAMPLE',P4=' PROGRAM! ,PSSZERO,P62(,P7=) 3 


SET LOCAL VALUES WITHIN MACRO ROUTINE * 


(Z'3e"') 
"PROG2.START2[,] NAME! 


21 »*» SET GLOBAL VALUES WITHIN MACRO ROUTINE * 


SETA 
SETA 
SETA 
SETA 
SETA 
SETA 


‘ORG INTU COMMON! 

‘ORG INTO INTERNAL LOC! 

"EXTERN VAL REFERENCE! 

"COMMON REFERENCE! 

YEXTERNAL LOCATION REFERENCE! 
"FORWARDS TEMP LAbpEL REFERENCE! 


31 »* UNPROTECTED LINES OMITTED WHEN PRE@PROCESSED 


L4 
LS 
10 Loe 
11 #7 
le L8 
13 L9 
14 ~LA 
i5 LB 
16 LC 
17 LOD 
18 Le 
19 « 
eg * 
ee * 
es * 
24 GH 
25 GG 
26 GC 
27 86=GD 
28 GE 
29 =«2OGF 
30 * 
32 Ck 
33 
34 
35 
3 PPC 
37 
38 (x) 
39 ?PD 
G40 (x) 
4\ 
42 
43 
44 


7L4 
*L5 
7L4 
?L6 
cae 


7L6 
eco 
LA 
2?L8 


4S ENOCLi ENDM 


TPS ?GH 
PVR(?P3,?P0) 27667Sk(2P4, ?PE) 
2G4?PP7?PS ?GG 
SR1,?LC?PB 2?6C 
S$R1,<?GA 76D 

S$R1,<?PA PGE 


PROG2.?SS(?LE,7,6) 7GBNAME 

2G4?P72P1?27GB?7LC?VL(13) 

>?P7$F 2GF 
$S17GB?LCZ'?7CH(1,"2) 2CH(2,"2) 7CH(5,=2) PCH (4,=2) ! 


Figure 5-4. Sample of Unexpanded Macro Routine (SAMPL1) Contained 
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se 


feike 


SAMPLe MAC 


SETA 
SETA 
SETA 
SETA 
SETA 
SETw 
SETN 
SET 
SETA 
SETA 
SETA 
* SET GLOBAL VALUES 
G7 SETI 
Ge SETA 
GS SETA 
* 
* UNPROTECTED LINES 
* 
?P4 
?P 1 


OAanoulbwwwve 


EnNDIT 
IFe1 


GTEND 
ENDCLe ENOM 


Figure 5-5. Sample of Unexpanded Macro Routine (SAMPL2) Contained 


P1=0,Peze,PS='SAMPLE', PSI PR(IGRAR!,PSSZEKU,PH=(,P7=)3 


P8=TwO0,P9=SCUMM,PAZHA,PBSh 
* SET LOCAL VALUES WITKIN MACRO ROUTINE * 


>p=(Z'13500') 

IOLD 

ER 4 

'PROGE START EL, NAME! 
SUk 

- 32768 

$2767 

0 

HE Z 

HiT 


rt 


WITHIN ACRKU ROUTIWE *& 

-$¢768 

TRACKAARDS TEMP LABEL RKEFERERCE! 
CTRL 


OMITTED FREN PREePRIUCESSED 


PPSPLZ?PL4,=27LU 
PPS?PLZIL4G,=2? Lu 
7LO,?VG(3) 
PLD, $C °Ge 


PPZ ?SSC?PLE,1,5) 
2?G7,37LtC,1FE1 


?Pe,?LC,* 
267, ?7LP,GTEND 


ENUIT 


in EXEC_LIB Directory 


USING THE EDITOR 


5-15 


6/78 
CB22A 


(aim, 


EXECUTING 


The internal file names 0A and OC translate to logical file numbers 01 and 03, respectively, 
and must be associated with the pathnames or the physical devices through a GET or ASSOC 
command. To execute the program, enter CARDIN. 


Enter the following commands: 
GET 01 >SPD>CDRO00 
GET 03 “ VOL03>FILES>OLD_MASTER 
CARDIN 


SAMPLE COBOL TERMINAL SESSION (AC8111) 


Figure 7-1 illustrates an operator terminal session in which a system is configured, and the 
COBOL program AC8111 is compiled, linked, and executed on that system. The Entry Level 
COBOL compiler is specified in this session. To secify the Intermediate COBOL compiler, 
change the COBOL command and the LINKER LIB directive as follows. 


COBOLI AC8111 -LO -COUT >SPD>LPT00 
LIB “%ZSYS51>ZCIRT;LINK AC8111;MAP;QT 


The LINKER LIB directive directs the Linker to search the secondary directory for COBOL 
run-time routines required for linking. To execute the program, enter AC8111. 


COBOLI ASTCOB1>SOURCE>ACC2ZO0EFACKI111 -LO -XREF -COUT >3SPDSLPTOO 
(4H) COBOLIL O200 05/06/1050 
($¢H) OOOO ERRORS 

($H) END COMPILATION 

(4HIRDY: 

LINKER AC&8111 -COUT >SPD>LPTOO 
($H)LINKER-0100-04/05/0704 

LIB <ZCIRT 

LINK Za@aAC&81117MP:QT 

(#HIROOT AC&I111 

($H)LINK DONE 

(#HIRDY: 

AC&8111 

($H) @208NUAD11001 

($H) @2OBNUAOD11001 

(#H) 

($H)RDY: 


Figure 7-1. Sample Terminal Session (AC8111) 


Figure 7-2 is a listing of the program AC8111, its compiled object text, and the output from the 
Linker. The program was compiled using the entry-level compiler. 
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USING THE COBOL COMPILER 7-3 CB22A 


=GCOSh MUDGDNDO=-SI10"04/776/0916 CuURBUL I NP 90 
SOURCE PROGRAM 


~t } 


XRFF ACR TBS05/08 


{ TOFNTIFICATION DIVISTON, 
2 xPROGRAM A2ZNRADLINI.CNANL FROM A2POAACC.ARCHIVE, 
3 PRNGRAM-ID,. ACRI11. 
mM FNVIRONYENT DIVISION, 
5 CONFIGURATION SEFTTON, 
b SOURCE=COMPUTER, LFVFL=6. be ee eee. peas 
7 NBJECT@=COMPUTER, LFEVEL=-6 PROGRAM COLLATING SFQUENCE ITS ASCTI. 
8 DATA NIVISION, 
9 WORKTNG@STONRAGF SECTION, a P 
10 01 OADSPLYPEr, 
11 0S AOSPLYFIYX, 
t2 10 FILLER PTC X€13) VALUE “Q2NBNUAOTTOOIN, OO 
13 10 ATCASE PIC XX VALUE SPACES, 
14 10 FILLER PIC ¥xX VALUE SPACES, 
15 10 ASTATUS PIC XxX VALUE SPACES, 
16 10 FILLFR PIC YXxX VALUE SPACES, 
17 95 ANSPLYVBL, 
18 10 NAACTRESLT PIC X€12) VALUE SPACES. eee ee eee “a 
19 10 FILLER PIC xXx VALUE SPACES, , 
20 10 MEXPRESLT PIC x¥(12) VAL@E SPACES. 
1 10 FILLFR PTC Xx VALUE SPACES, Gas ee 
22 11 SUMMARYS, 
ra) N95 SUM-LINE PTC X(7) VALUE "4 2? 3 4", 
4 N15 RESULTS, eM A hcteh. tosh cee e etna aecag Daksa: 
PS 10 TESTIR PIC XK, 
26 10 TESTPAR PIC XX. 
e7 10 TESTS3R PIC XX, ca 
8 10 TESTAR PIC XxX, 
29 x & &* TFST GON TNhe=FONRWARD AND BACK «x x *& 
30 PROCFDURE DIVISION, . 7 al ela 
31 ANFANG, 
42 DISPLAY ADSPLYFIX, 
33 GO TO PARA#3, a 258 Aes oe 
34 WRAL, 
35 MOVE "GO TN PARAW=3" TO QEYXPRESLT. 
36 MOVE "FELL THRU" TO” “GACTRESLY<.. «4. Geese ee 
37 MOVE "ai" Tn QTCASE, 
3B MOVE “FP To TFSTIP, 
39 DISPLAY ADSPLYREC,. bs Sen ee Raecteatnrse Dae, 
40 PARAe1, 
41 MOVE “p3 TN TFSTS3R,. 
tha. . GO TO ENJ1. — ae 
43 WRA2, 
4a MOVE "B80 TN FOJ1I" TO QEYXYPRESLT. 
as MOVE "FELL THRU" TO. QACTRESiT.  2Asete Sy oie. 
46 MOVE "OQ" ™T™ QTCASF,. 
47 MOVE # =“F" TA TEST4R, 
A NISPLAY ADSPLYREC. Bee, dict en ee eee 
49 PARAeD?,. 
¥) MOVE “pe TO TFSTER, 
S51 G0 TO PARA-1, eden ae 
~§2 WBAZ, 
53 MOVE "G0 TN PARA#=1i" TO NEXPRESLT, 
--54 MOVE "FELL THRU". AO ARETE ST ee 
55 MOVE "03" TO QTCASF, 
S6 MOVE *F* TO TFST3R, 
ro Se DISPLAY QOSPLYREC.. eee Pe ea eg 
5 8 PA R A= 3 eo 
59 MOVE a ot TO TESTIR, 
60 GO TO PARA=2, 
61 WBAG, Se esecteeiae 
62 MOVE "GON TO PARA#=P"*" TO QEXPRESLT, 
63. MOVE "FELL THRU" TO QACTRFESLT. 
Figure 7-2. Sample Listings for AC8111 
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ere, 


oe MOVE "O02". TO. .QTCASE. - 


65 MOVE "F" TO TESTOR. 
66 NISPLAY ADSPLYREC, 
67 FOJ1. 
Ha MOVE "pe TO TEST4R, 
69 MOVE SPACES TO QTCASF. 
TQ. ae MOVE SPACFS 10 QSTATUS, 
71 NISPLAY ANSPLYFTX SUMeLINE. 
72 MOVE SPACFS TO QDSPLYFIX, 
73 NISPLAY QADSPLYFIX RFSULTS. 
74 STQP RUN. 
75 FND COROL. 
=GCNS6 MODGNDNNKSII0=-04/2P6/0916 COROLI 200 -1.0 XREF ACAR111 78/05/08 


DATA ALLOCATION MAP 


WORKING=STORAGE SECTION 
4. OPS PLYRED 22. 
| 0S QNSPLYFIX 0000 X(000021) 


19 FILLER 0000 X(000013) 

ASE 006 00000 8 en 
: 10 FILLER 0907 H xX(00000e) 
10 QSTATUS 0008 H xX(000002) 


TAG Bis, he eaten OO OP OOOO ic a Fi an hh 
0S QDSPLYVBL 0008 H x(000028) 
10 @ACTRESLT 000A H X(000012) 


onto x tooooo2) So 
10 QEXPRESLT 0011 H x(000012) (DATA ALLOCATION MAP) 

10 FILLER 0017 H <x(000002) 

Pea Le SUMMARYS ict 5. ok ONTOR si MOQNOOTS Yn ede ee it el he 

_ 05 SUM=LINE 0019 X (000007) 

| 05 RFSULTS 001C H xXCON000R) 

ek Ss te es cea es ODO lV COR aN ae stl eae 
10 TFST2R 001D H ¥x(000002) 
10 TEST3R OO1E H ¥x(000002) 

ee ees 10. TESTAR —-OO1F oH. xtoon002).. [ itce, Boe ees cs 


NO DIAGNOSTICS 


(= eprerure) 


(HALF-WORD INDICATOR; 
DESIGNATED BY H) 


(STARTING ADDRESS OF DATA) 
(DATA NAME) 


— (GROUP AND ELEMENTARY ITEM 
LEVEL NUMBERS) 


ee (GROUP-LEVEL NUMBERS] ~ — 


Figure 7-2 (cont). Sample Listings for AC8111 
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=GCOS6 M0D400-S110-04/26/0916 COROLI 


OBJECT CODE 


STATEMENT NUMBER 
0012 0380 0000 
0015 D380 0000 
0018 8AC6 0000 
OO1A OFB3 

0018 8746 0000 
001D DFC6 0000 
OO1F FFC6 9000 
0021 FBC6 0000 
0023 8747 OO09A 
STATEMENT NUMBER 
0000 OFB1 0024 
STATEMENT NUMBER 
0025 9BC7 FFDA 
0027 9870 0000 
0029 F870 0015 
002B D380 0000 
STATEMENT NUMBER 
002F 4381 FFOD 
STATEMENT NUMBER 
0002 OF81 00eN 
STATEMENT NUMBER 


0030 OF 87 
0031 474F 
0032 2054 
0033 4Fe0 
0034 5041 
0035 5241 
0036 2033 
0037 0021 


0038 4C08 FFFS8 
003A CCO7 FFEB 


30 
LNJ 


LN . 


INC 


$B5,-<ZCRTER 
$B5-<ZCSTOP 


$B85,<ZCRTY1 


Net _ ee” 


(PARTIAL OBJECT LISTING) 


0200 -LO 


XREF ACBi11 


ee CALL) 


(INSTRUCTION MNEMONIC) 
( INSTRUCTION) 


(LOCATION OF INSTRUCTION) 


=GCOS6 MOD400"S110"04/26/0916 COROLI 90 
CROSS REFERENCE LISTING 


NUMBER DATA NAME 


31 ANFANG 


67 FOJ1 
40 PARA-=1 
49 PARA=-2 — 


58 PARA=3 

16 QACTRESLT 
11 QDSPLYFIX 
10 QDSPLYREC 
17 QDSPLYVBL 
20 QEXPRESLT 
15 ASTATUS 
13 ATCASE 

24 RESULTS 
25s) =6SUM=LINE 
22 SUMMARYS 


eS TESTIR 
e266 6TTEST2R 
27? TESTS3R 


eB TEST4R 


Figure 7-2 (cont). 
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NO REFERENCES 


42 

51 

60 

33 

346 4 

$e 71 

39 48 
NO REFERENCES 

35 44 

70 

37 46 

73 

71 | 
NO REFERENCES 

38 59 

50 65 

44 56 

47 68 


7-6 


200 =LO 


REFERENCE NUMBERS 


S4 
Te 
St 
53 


55 


XREF AC8&111 


63 
73 
66 


62 


64 


Sample Listings for AC8111 


78/05/08 


78/05/08 


69 
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34 wRAl NO REFERENCES 


43 WhA2 NO REFERENCES 

S52 WBRAS NO RFFFRENCES 

61 wWKAG NO REFERENCES 
LINKFR=-0100-11/23/1258 GCNS6 MON400-S100=11/29/0670 
RU= ACAI11 LINKEN ON? 1901701701 0002244,1 =SAF 


ACAI!11 91701701 
CNBNL RFV. 0200 DATF O1/701/N1 TIMF N000 . 


ZCRTYU 779208 
HRS ASSEMBLER 2.49 6/00/77 1340.3 ENT THU 
(CC) COPYRIGHT 1976 BY HONFYWELL INFORMATION SYSTEMS INC 


ZCSTNP 770208 
HRS ASSEMBLER ?,.49 N6/0°A/77 1336.9 ENT THU 
(C) CAPYRIGHT 1976 RY HONFYWELL INFORMATION SYSTEMS INC 


ZCRTFR TF7N208 
HRS ASSEMBLER 2.49 6/0°/7T7 1934.4 ENT THU 
(C) CAPYRTGHT 1976 RY HONFYWELL INFORMATION SYSTEMS INC 


w*e ACAI LINK MAP 1901701701 99N020344,1 
kxSTART 00433 
k*xLOW 0000 
*kxHIGH N3ZR] 


kKCURRENT O3A1 


wxEXT DNEFS 
Pp 7HCOMM 00NO 


Pp 7THREL 0000 
tx ROOT 0000 
* ACRI11 £4N0N0 
ACR111 0035 7CMAIN 9031 
x F7CRTYU OPRI 
7CRTY1 O02F 1 7TCRTY2 312 7ZCRTY3 0334 


x 7CSTOP O3%3E 
ZCSTNP O3SE 
x 7CRTFR 341 
ZCRTER 0353 


*xIINDEF 

x ACRIS1 1000 
x Z7CRTYU N2R9 
x 7CSTNP O3RE 
x 7CRTFR 0341 


KKKKKKKK EK 
ROOT ACA111 
RKKKKKKKKE 


HIGHEST OVLY /JNUIM OF SYMS 1 


KRkKKKKK KK 
SAF 

RKKKKKKKKE 

ROOT AC8111 BASF 9000 ST 0033 ~.eel HIGHS0381 
KKRKKKKKKK 

*SIZE OF ROOT AND STATIC OVLYS= 038} HY REL RCD= 9 
KEEKKKEKKER 


LINK. DONE 


RREKKKKKEKEK 


Figure 7-2 (cont). Sample Listings for AC8111 
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CALLING FORTRAN ROUTINES FROM AN ENTRY-LEVEL COBOL MAIN PROGRAM 


Entry-Level COBOL programs can call FORTRAN subroutines and conversely. This enables 
a COBOL application to utilize the features of the FORTRAN language, such as the intrinsic 
routines, and FORTRAN run-time libraries. 


The COBOL main program must be linked with all the called FORTRAN routines to form one 
bound unit. The FORTRAN routines and libraries must either be in the working directory or one 
of the libraries searched by the Linker, as specified by the Linker LIB and LIBn directives. 


Figure 7-3 is a sample Entry-Level COBOL source program, COBFRT, whose function is to 
calculate and print the square roots of three integers. Since the COBOL library does not have a 
square root routine, a FORTAN subroutine, FRTRAN in Figure 7-4, is used to convert the 
passed COBOL integer argument values to read values and call the FORTRAN square root 
routine. 


The commands entered from the operator terminal are listed in Figure 7-5. COBFRT.O and 
FRTRAN.O are both in the working directory FRTCOB, the COBOL run-time library, ZCRT, is 
in the directory specified by the Linker directive LIB, and the FORTRAN run-time library, 
ZFRT, is in the directory specified by LIB2. The system volume, ZSYS51, contains the 
FORTRAN and COBOL compilers, ZFRT, ZCRT and the operating system software. Volume 
FRTCOB contains the source modules (COBFRT.C and FRTRAN.F), the object modules 
(COBRFT.O and FRTRAN.O) and the linked bound unit COBFRT. 
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